home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2004 #9 / Amiga Plus CD - 2004 - No. 09.iso / amigaplus / tools / amigaos4_only / ifxlite / imagefx3 / rexx / flyer / imagefx.rexx
OS/2 REXX Batch file  |  2004-08-03  |  743b  |  35 lines
  1. /*
  2.  * ImageFX.rexx -- Flyer program to launch ImageFX
  3.  *
  4.  * Copyright © 1996 Nova Design, Inc.
  5.  * Written by Thomas Krehbiel
  6.  *
  7.  * Copy this script to the "NewTek/ARexx/Editor/" directory to use.
  8.  *
  9.  */
  10.  
  11. OPTIONS RESULTS
  12. call remlib('PROJECT_REXX_PORT')
  13. call remlib('ToasterARexx.port')
  14. call remlib('rexxsupport.library')
  15.  
  16. call ADDLIB("rexxsupport.library", 0,-30,0)
  17. call addlib('PROJECT_REXX_PORT', 0)
  18. call addlib('ToasterARexx.port',0)
  19.  
  20. /* show workbench */
  21. Switcher('TOWB')
  22.  
  23. IF ~SHOW('P', 'IMAGEFX.1') THEN DO
  24.    /* run ImageFX */
  25.    ADDRESS COMMAND "ImageFX:ImageFX"
  26.    END
  27. ELSE DO
  28.    /* pause a bit because TOWB is asynchronous */
  29.    DELAY 1
  30.    /* bring existing ImageFX to front */
  31.    ADDRESS 'IMAGEFX.1' 'ScreenToFront'
  32.    END
  33.  
  34. return 0
  35.